home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
ffccflow
/
ffccflow.lha
/
ffccc+flow
/
ffccc
/
CSTATE.h
< prev
next >
Wrap
Text File
|
1992-07-31
|
3KB
|
52 lines
*IF DEF,NEVER
*-----------------------------------------------------------------------
* /STATE/ contains the information concerning the actual
* status of the program
* NLINES no. of lines in line image buffer SIMA
* NKEEPL buffered line number in READEC, or 0
* NSTAMM total no. of statements in current routine
* NFSTAT no. of FORTRAN statements in current routine
* ISNAME pointer to start-1 of stmt. names in SNAMES
* NSNAME no. of names found in statement
* IRNAME pointer to start-1 of names/routine in SNAMES
* NRNAME no. of names/routine
* IGNAME pointer to start-1 of global names in SNAMES
* NGNAME no. of global names
* INDCNT current indentation level (reset at routine start)
* INDFAC no. of ch./level to indent
* KNTDO current DO loop level (for indentation)
* KNTIF current IF...THEN level (for indentation)
* IBLPAD in QUOTES option, string blank-padded to multiples
* of IBLPAD (default = 1)
* NRORST no. of currently selected OR-sets in LRORST
* NSTANU no. of statement numbers in KSTANU, KSTARE
* ICBPRT no. of c.b. variables printed at ACTION(24)
* NCBNAM no. of c.b. names in NCBGRP, KCBGRP, SCBNAM
* NEQNAM no. of equiv. groups in NEQGRP, KEQGRP
* NCBVAR no. of names in SEQNAM
* NCBGRP no. of common block variables per c.b.
* KCBGRP pos.-1 of start of c.b. name list in SCBNAM
* LCBNAM # of c.b. variables used in current routine
* LCBVAR counts number of times a variable is referenced
* NEQGRP no. of names in equiv. group
* KEQGRP pos.-1 of start of equiv. group in SCBNAM
* LRORST list of OR-sets valid for current routine
* NAMTYP variable type, parallel to SNAMES
* NSSTRT start of name I in SSTA
* NSEND end of name I in SSTA
* KSTANU statement numbers in routine (sorted)
* KSTARE new statement numbers, corresponding to KSTANU
* NLTYPE type of line I (0 comment, 1 start, 2 cont. of stmt. )
* ICLASS(I,1) type of statement I
* 0 = comment
* 999 = no comment, not classified
* class = ICURCL(1), common /CURSTA/
* ICLASS(I,2) type of second part of statement I if logical IF
* IMODIF 10*n2 + n1
* n1 = 1 : statement has been filtered
* n2 = 1 : statement has been modified
* NFLINE start of statement I in SIMA
* NLLINE end of statement I in SIMA
*-----------------------------------------------------------------------
*EI